﻿Imports PadovadoAPI


Imports System.Web.Configuration

Partial Class WebUserControls_DettagliEvento
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then
            If String.IsNullOrEmpty(Request.QueryString("PK_evento")) Then
                Response.Redirect("~/Default.aspx")
            Else
                CaricaPagina()
            End If

        End If

    End Sub

    Public Sub CaricaPagina()
        Dim evt As New Evento


        evt.LoadFromPk(Request.QueryString("PK_evento"))

        ' If Not String.IsNullOrWhiteSpace(Request.QueryString("NomeEvento")) Then
        Me.Page.Title = evt.FK_Organizzatore.FK_Anagrafica.Denominazione & " - " & evt.NomeEvento
        '  End If

        Dim Keywords As New HtmlMeta
        Keywords.Name = "keywords"
        Keywords.Content = evt.NomeEvento.Replace(" ", ",")
        Page.Header.Controls.Add(Keywords)

        Dim Description As New HtmlMeta
        Description.Name = "Description"
        Description.Content = evt.DataInizio.ToString("dd/MM/yyyy") & " " & evt.NomeEvento & " - " & evt.Descrizione & _
            " Organizzato da " & evt.FK_Organizzatore.FK_Anagrafica.DefinizioneCompleta & "  " & evt.FK_Indirizzo.DefinizioneCompleta
        Page.Header.Controls.Add(Description)

        LblNomeEvento.Text = evt.NomeEvento
        LblDescrizione.Text = evt.Descrizione
        LblInizia.Text = "Dal " & evt.DataInizio.ToString("dd/MM/yyyy")
        If evt.DataFine > evt.DataInizio Then
            LblInizia.Text = "Dal " & evt.DataInizio.ToString("dd/MM/yyyy")
            LblFinisce.Text = "Al " & evt.DataFine.ToString("dd/MM/yyyy")
        Else
            LblInizia.Text = "Il " & evt.DataInizio.ToString("dd/MM/yyyy")
        End If
        If Not String.IsNullOrEmpty(evt.ImgEvento) Then
            ImgEvento.ImageUrl = evt.ImgEvento
        Else
            ImgEvento.Visible = False
        End If
        HLLocale.Text = "Scheda " & evt.FK_Organizzatore.FK_Anagrafica.DefinizioneCompleta
        HLLocale.Target = "blank"
        Dim TipoLocaleStr As String = evt.FK_Organizzatore.enTipoLocale
        Select Case evt.FK_Organizzatore.enTipoLocale
            Case 1
                TipoLocaleStr = "Ristorante"
            Case 2
                TipoLocaleStr = "RistoBar"
            Case 3
                TipoLocaleStr = "Pub"
            Case 4
                TipoLocaleStr = "Discoteca"
            Case 5
                TipoLocaleStr = "Proloco"
            Case 7
                TipoLocaleStr = "Fiera"
            Case 8
                TipoLocaleStr = "Pizzeria"
            Case 9
                TipoLocaleStr = "Bar"
            Case 10
                TipoLocaleStr = "EnteBenefico"
            Case 11
                TipoLocaleStr = "Museo"
            Case 12
                TipoLocaleStr = "CentroCommerciale"
            Case 13
                TipoLocaleStr = "Parrocchia"
            Case 14
                TipoLocaleStr = "Cinema"
            Case 15
                TipoLocaleStr = "Etnico"
            Case 16
                TipoLocaleStr = "Trattoria"
            Case 6
                TipoLocaleStr = "Organizzatoredieventi"
            Case 100
                TipoLocaleStr = "Generico"
            Case Else
                TipoLocaleStr = "Generico"

        End Select
        HLLocale.NavigateUrl = "http://www.padovado.it/locali-divertimenti/" & TipoLocaleStr & "/SchedaLocale.aspx?PK_Locale=" & _
   evt.FK_Organizzatore.PK_Organizzatore & "&NomeLocale=" & evt.FK_Organizzatore.FK_Anagrafica.DefinizioneCompleta

        If Not String.IsNullOrEmpty(evt.brochure) Then
            HLBrochure.Text = "Download brochure"
            HLBrochure.Target = "blank"
            HLBrochure.NavigateUrl = evt.brochure
        Else
            HLBrochure.Visible = False
        End If
        If Not String.IsNullOrEmpty(evt.Link) Then
            HLSito.Text = "Sito evento"
            HLSito.Target = "blank"
            HLSito.NavigateUrl = evt.Link
        Else
            HLSito.Visible = False
        End If

        LblDove.Text = evt.FK_Indirizzo.DefinizioneCompleta
        LblOrganizzatore.Text = "Organizzato da " & evt.FK_Organizzatore.FK_Anagrafica.DefinizioneCompleta & "<br/> " & evt.FK_Indirizzo.DefinizioneCompleta
        ' LblDescrizione.Text = evt.Descrizione
        'Dim mark As New Artem.Google.UI.Marker
        '' Dim x As New Artem.Google.UI.GoogleMapDesigner()
        'mark.Address = evt.FK_Indirizzo.DefinizioneCompleta
        'mark.Title = evt.NomeEvento
        'GMEvento.Markers.Add(mark)


    End Sub

End Class
